home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO086A.dsk / WARP6 / FILER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  49 lines
  1. 10  REM Filer Copyright 1989 Jim Ferr. All rights reserved.
  2. 100  CALL M3: IF  PEEK(RC) >0  THEN  PRINT : POP : GOTO 5100
  3. 105  ON   NOT CS  OR ID = 1000 GOTO 115
  4. 110  ON  PEEK(EM) >TL  OR  PEEK(EH) GOTO 160
  5. 115 I$ =  MID$ (RI$,1): IF I$ = ""  THEN CR = 1: RETURN 
  6. 120 CR = 0: RETURN 
  7. 130  CALL M3: IF  PEEK(RC) >0  THEN  PRINT : POP : GOTO 5100
  8. 140 I$ =  MID$ (RI$,1): IF I$ = ""  THEN CR = 1: RETURN 
  9. 150 CR = 0: RETURN 
  10. 160  PRINT : PRINT "Time limit expired.": POP : GOTO 5100
  11. 170 X = 1
  12. 175  IF  MID$ (I$,X,1) = ","  OR  MID$ (I$,X,1) = ":"  THEN EE = 1: RETURN 
  13. 180  IF X =  LEN(I$)  THEN EE = 0: RETURN 
  14. 185 X = X +1: GOTO 175
  15. 190  PRINT : PRINT "No commas or colons allowed.": RETURN 
  16. 1000  REM  Entry point
  17. 1010  ONERR  GOTO 5000
  18. 1020 Z = 0:CMD$ = "HG": FOR X = 1 TO  LEN(CMD$): IF I$ =  MID$ (CMD$,X,1)  THEN Y = X:X =  LEN(CMD$) +1: NEXT : GOTO 1040
  19. 1030  NEXT 
  20. 1040  ON Y GOTO 1050,1060
  21. 1050  PRINT D$"PREFIX HELP": GOTO 2000
  22. 1060  PRINT D$"PREFIX GEN"
  23. 1070  REM  New: Put up G-files menu
  24. 1080  PRINT D$"OPEN F.DATA": PRINT D$"READ F.DATA": INPUT FM$,TT: PRINT D$"CLOSE"
  25. 1090  PRINT : PRINT FM$;".": PRINT : PRINT D$"TYPE TITLES"
  26. 1100 Z = 1: PRINT : PRINT "Hit Return to exit or": PRINT "Enter section # 1 to ";TT;" : ";: POKE VI,2: GOSUB 100: IF CR = 1  THEN  PRINT D$"PREFIX";RT$: GOTO 2070
  27. 1110  IF  VAL(I$) <1  OR  VAL(I$) >TT  THEN 2010
  28. 1120 X =  VAL(I$):I$ = "F" + STR$(X): PRINT D$"PREFIX";I$
  29. 1130 Z = 1: REM  SET FLAG SO WE KNOW WE ARE NESTED
  30. 2000  PRINT D$"OPEN F.DATA": PRINT D$"READ F.DATA": INPUT FM$,TT: PRINT D$"CLOSE"
  31. 2010  PRINT : PRINT FM$;".": PRINT : PRINT D$"TYPE TITLES"
  32. 2020  PRINT : PRINT "Make choice/Return to exit : ";: POKE VI,2: GOSUB 100: IF CR = 1  AND Z = 0  THEN  PRINT D$"PREFIX";RT$: GOTO 2070
  33. 2030  IF CR = 1  AND Z = 1  THEN  PRINT D$"PREFIX";RT$;"/GEN": GOTO 1080
  34. 2040  IF  VAL(I$) <1  OR  VAL(I$) >TT  THEN 2010
  35. 2050 X =  VAL(I$)
  36. 2060  PRINT : PRINT AB$: PRINT : PRINT D$"TYPE F";X: PRINT : PRINT "Press Return : ";: POKE VI,0: GOSUB 100: GOTO 2010
  37. 2070  PRINT D$"PREFIX";RT$
  38. 2080  PRINT D$"CHAIN WARP6.BBS,@7990"
  39. 4800  PRINT  CHR$(4)"-LOGON"
  40. 5000  REM  ERROR HANDLER
  41. 5010 ER =  PEEK(222):LN =  PEEK(218) + PEEK(219) *256
  42. 5020  CALL  -3288: POKE 216,0
  43. 5030  ONERR  GOTO 4800
  44. 5040  PRINT  CHR$(4)"PREFIX";RT$: PRINT  CHR$(4)"CLOSE"
  45. 5050  PRINT : PRINT "A system error has occurred..."
  46. 5060  PRINT D$"APPEND ERROR.LOG": PRINT "Err #";ER;" at line ";LN;", user ";ID;" in Filer.": PRINT D$"CLOSE"
  47. 5070  PRINT D$"CHAIN WARP6.BBS,@5000"
  48. 5100  PRINT D$"PREFIX";RT$
  49. 5110  PRINT D$"CHAIN WARP6.BBS,@5000"